home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs46.d81
/
voice.arc
/
VOICE BOOT
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
738b
|
32 lines
5 POKE808,251:PRINTCHR$(8):PRINTCHR$(142):REM****WRITTEN BY JONATHAN GOURD*****
10 X=0.
90 IFA=0THEN A=1:LOAD"VOICE",8,1
100 POKE51041,3*16:POKE51022,5:POKE51036,110:POKE51017,2:POKE51031,0
110 SYS50320
115 PRINT"[147]"
120 (null)"VOICE WORDS",8
124 POKE53280,14:POKE53281,6
125 PRINT"[147][154] **** COMMODORE 64 BASIC V2 ****":PRINT" 64K RAM SYSTEM";
126 PRINT" 38911 BASIC BYTES FREE":PRINT"READY."
130 POKEG,32:(null)X
131 IFX=2THENX=-1
132 X=X+1
133 (null)1:(null)7
139 PRINT"[147][146] **** COMMODORE 64 BASIC V2 ****":PRINT" 64K RAM SYSTEM";
140 PRINT" 38911 BASIC BYTES FREE":PRINT"READY."
141 PRINT" [157]";
142 FORG=1024TO1984STEP40:IFPEEK(G)=160THEN GOTO144
143 NEXTG
144 FORM=1TO 80
145 GETL$
146 IFL$<>""THEN GOTO 130
147 NEXTM
148 POKEG,32
149 FORM=1TO 80
150 GETL$
151 IFL$<>""THEN GOTO 130
152 NEXTM
153 POKEG,160
154 GOTO144
160 REM*****WRITTEN BY JONATHAN GOURD****